home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 November / MACPOWER-1997-11.ISO.7z / MACPOWER-1997-11.ISO / Shareware Paradise / NIFTY APS b48.sit / NIFTY APS b48 / Login Script next >
Text File  |  1997-09-19  |  32KB  |  1,758 lines
  1. ************************************
  2. *   NIFTY APS beta by Ko Tsuneta   *
  3. ************************************
  4. ********************
  5. *   Main Routine   *
  6. ********************
  7. ***** Get Date *****
  8.   date:$date$:
  9.   set:$predate$:20$date$
  10.   set:#predate#:$predate$
  11.   strext:$tem$:7:8:$predate$
  12.   if:05:$tem$<>01
  13.   sub:#predate#:100
  14.   strext:$tem$:5:6:#predate#
  15.   if:04:$tem$==00
  16.   set:$predate$:#predate#
  17.   if:03:$tem$==04
  18.   if:03:$tem$==06
  19.   if:03:$tem$==09
  20.   if:03:$tem$==11
  21.   if:02:$tem$<>02
  22.   strext:$tem$:1:4:$predate$
  23.   set:#num#:$tem$
  24.   mod:#num#:4
  25.   if:01:#num#<>0
  26.   set:#num#:$tem$
  27.   mod:#num#:100
  28.   if:00:#num#<>0
  29.   set:#num#:$tem$
  30.   mod:#num#:400
  31.   if:01:#num#<>0
  32. 00:
  33.   strext:$predate$:1:6:$predate$
  34.   set:$predate$:$predate$29
  35.   j:06
  36. 01:
  37.   strext:$predate$:1:6:$predate$
  38.   set:$predate$:$predate$28
  39.   j:06
  40. 02:
  41.   strext:$predate$:1:6:$predate$
  42.   set:$predate$:$predate$31
  43.   j:06
  44. 03:
  45.   strext:$predate$:1:6:$predate$
  46.   set:$predate$:$predate$30
  47.   j:06
  48. 04:
  49.   sub:#predate#:10000
  50.   set:$predate$:#predate#
  51.   strext:$predate$:1:4:$predate$
  52.   set:$predate$:$predate$1231
  53.   j:06
  54. 05:
  55.   sub:#predate#:1
  56.   set:$predate$:#predate#
  57. 06:
  58.   strext:$predate$:3:8:$predate$
  59.   set:$set$:--------1-
  60. ***** Maintenance? *****
  61.   week:#week#
  62.   if:10:#week#<>4
  63.   strext:$tem$:5:6:$date$
  64.   set:#num#:$tem$
  65.   if:10:#num#<<22
  66.   if:10:#num#>>28
  67.   time:$time$
  68.   strext:$tem$:1:2:$time$
  69.   set:#num#:$tem$
  70.   if:10:#num#<<01
  71.   if:10:#num#>>07
  72.   m:メンテナンス中です。^m
  73.   j:996
  74. ***** Where will I go? *****
  75. 10:
  76.   set:#go#:0
  77.   exist:11:SCRIPT:BBS.aps
  78.   j:12
  79. 11:
  80.   add:#go#:1
  81. 12:
  82.   exist:13:SCRIPT:MES.aps
  83.   j:14
  84. 13:
  85.   add:#go#:2
  86. 14:
  87.   exist:15:SCRIPT:SEArch.aps
  88.   j:16
  89. 15:
  90.   add:#go#:4
  91. 16:
  92.   exist:17:SCRIPT:DownList.lib
  93.   j:18
  94. 17:
  95.   add:#go#:8
  96. 18:
  97.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  98.   if:19:$filename$==
  99.   add:#go#:16
  100. 19:
  101.   exist:20:SCRIPT:PATIO.aps
  102.   j:21
  103. 20:
  104.   add:#go#:32
  105. 21:
  106.   exist:22:SCRIPT:SCRIPT:HP.aps
  107.   j:23
  108. 22:
  109.   add:#go#:64
  110. 23:
  111.   exist:24:SCRIPT:SCRIPT:AFTP.aps
  112.   j:80
  113. 24:
  114.   add:#go#:128
  115. ***** Setting *****
  116. 80:
  117.   exist:81:SCRIPT:SETTING.aps
  118.   m:SETTING.apsが見つかりません。^m
  119.   j:996
  120. 81:
  121.   set:$set$:
  122.   fopen:#refnum#:SCRIPT:SETTING.aps
  123.   fread:#refnum#:$line$
  124.   nthstr:$temset$:1:$line$
  125.   if:82:$temset$<>DIAL
  126.   nthstr:$temset$:2:$line$
  127.   nthstr2:¥r:$temset$:1:$temset$
  128.   set:$set$:$set$$temset$-
  129.   fread:#refnum#:$line$
  130.   nthstr:$temset$:1:$line$
  131.   if:82:$temset$<>TERMINAL
  132.   gosub:1600
  133.   if:82:$temset$<>FORUMOPT
  134.   gosub:1600
  135.   if:82:$temset$<>BINARYMAIL
  136.   gosub:1600
  137.   if:82:$temset$<>DELETEMAIL
  138.   gosub:1600
  139.   if:82:$temset$<>MES
  140.   gosub:1600
  141.   if:82:$temset$<>LIB
  142.   gosub:1600
  143.   if:82:$temset$<>LOGCUT
  144.   gosub:1600
  145.   if:82:$temset$<>QUIT
  146.   gosub:1600
  147.   if:82:$temset$<>BILL
  148.   nthstr:$temset$:2:$line$
  149.   set:$set$:$set$$temset$
  150.   fclose:#refnum#
  151.   j:90
  152. 82:
  153.   fclose:#refnum#
  154.   m:SETTING.apsのフォーマットが正しくありません。^m
  155.   set:$set$:--------1-
  156.   j:996
  157. ***** Login *****
  158. 90:
  159.   set:#times#:0
  160.   nthstr:$temset$:1:$set$
  161.   if:95:$temset$==9
  162.   dial:91:$temset$
  163.   m:回線が混雑しています。^m
  164.   offline:
  165.   j:996
  166. 91:
  167.   if:96:#times#>>2
  168.   silence:60
  169.   s2:
  170.   silence:30
  171.   line:#num#
  172.   getline:$line$:#num#
  173.   strwhere:#num#:¥¥*:$line$
  174.   if:92:#num#==1
  175.   strwhere:#num#:Login:$line$
  176.   if:94:#num#==1
  177.   s:@P^m
  178.   t:93:3:*
  179. 92:
  180.   s:C NIF^m
  181.   j:95
  182. 93:
  183.   s:^m
  184.   add:#times#:1
  185.   j:91
  186. 94:
  187.   s:NIFTY^m
  188.   r:Password
  189.   s:^m
  190. 95:
  191.   r:Connection-ID|97:User-ID|98:Password|96:Clear
  192.   s:SVC^m
  193.   j:95
  194. 96:
  195.   m:何らかの理由で接続できませんでした。^m
  196.   offline:
  197.   j:996
  198. 97:
  199.   s:$i$^m
  200.   j:95
  201. 98:
  202.   line:#start#
  203.   add:#start#:2
  204.   clock:reset
  205.   clock:on
  206.   s:$p$^m
  207.   set:$gone$:-
  208. ***** Recive Mail *****
  209.   r:す（未読分|120:(改行でトップメニュー)|130:^j＞
  210.   silence:9
  211.   nthstr:$temset$:2:$set$
  212.   if:100:$temset$==0
  213.   gosub:1610
  214. 100:
  215.   s:MAIL^m
  216.   r:^jMAIL>
  217.   s:REAd NEW^m
  218.   nthstr:$temset$:4:$set$
  219.   if:110:$temset$==1
  220. 101:
  221.   r:^jaction:|131:^jMAIL>
  222.   nthstr:$temset$:5:$set$
  223.   if:102:$temset$==1
  224.   s:SAVe^m
  225.   j:101
  226. 102:
  227.   s:DELete^m
  228.   j:101
  229. 110:
  230.   r:^jaction:|112:^jMAIL>
  231.   nthstr:$temset$:5:$set$
  232.   if:111:$temset$==1
  233.   s:SAVe^m
  234.   j:110
  235. 111:
  236.   s:DELete^m
  237.   j:110
  238. 112:
  239.   set:#bnum#:0
  240.   line:#bstart#
  241.   s:DOWn PROT:BPL^m
  242.   r:^j＞|131:^jMAIL>
  243.   line:#bend#
  244.   sub:#bend#:3
  245.   sub:#bend#:#bstart#
  246. 113:
  247.   s:1^m
  248.   add:#bnum#:1
  249.   r:^j：
  250.   s:BMAIL#bnum#^m
  251.   r:開始−
  252.   d:1
  253.   dlBplus:
  254.   r:^j：
  255.   nthstr:$temset$:5:$set$
  256.   if:114:$temset$==1
  257.   s:2^m
  258.   j:115
  259. 114:
  260.   s:1^m
  261. 115:
  262.   r:^jMAIL>
  263.   if:131:#bnum#==#bend#
  264.   s:DOWn PROT:BPL^m
  265.   r:^j＞
  266.   j:113
  267. ***** Read NEW *****
  268. 120:
  269.   silence:9
  270.   firstfile:$filename$:POST:¥^NEW[0-9A]
  271.   if:130:$filename$==
  272.   strext:$line$:4:31:$filename$
  273.   gosub:1720
  274.   nthstr:$temset$:2:$set$
  275.   if:121:$temset$==0
  276.   gosub:1610
  277. 121:
  278.   s:$line$
  279. 122:
  280.   s:^m
  281.   r:表示終了|122:(改行で次文書　E:終了)|130:入力して下さい◆
  282. ***** Send Mail *****
  283. 130:
  284.   silence:9
  285.   set:#mailon#:0
  286.   nthstr:$temset$:2:$set$
  287.   if:131:$temset$==0
  288.   gosub:1610
  289. 131:
  290.   firstfile:$filename$:POST:¥^MAIL[0-9]
  291.   if:150:$filename$==
  292.   fopen:#refnum#:POST:$filename$
  293.   fread:#refnum#:$line$
  294.   strwhere:#num#:#!FN:$line$
  295.   if:140:#num#==1
  296.   strwhere:#num#:TO:$line$
  297.   if:132:#num#==1
  298.   fclose:#refnum#
  299.   set:$us$:_?
  300.   gosub:1700
  301.   j:131
  302. 132:
  303.   if:133:#mailon#==1
  304.   s:MAIL^m
  305.   set:#mailon#:1
  306.   r:^jMAIL>
  307. 133:
  308.   gosub:1000
  309.   j:131
  310. 140:
  311.   strlen:#length#:$line$
  312.   sub:#length#:1
  313.   strext:$binary$:5:#length#:$line$
  314.   exist:141:$binary$
  315.   fclose:#refnum#
  316.   set:$us$:_?
  317.   gosub:1700
  318.   j:131
  319. 141:
  320.   fread:#refnum#:$line$
  321.   strwhere:#num#:#!TT:$line$
  322.   if:143:#num#<>1
  323.   strlen:#length#:$line$
  324.   if:142:#length#<=5
  325.   strext:$title$:5:#length#:$line$
  326.   fread:#refnum#:$line$
  327.   strwhere:#num#:TO:$line$
  328.   if:145:#num#==1
  329.   fclose:#refnum#
  330.   set:$us$:_?
  331.   gosub:1700
  332.   j:131
  333. 142:
  334.   fread:#refnum#:$line$
  335. 143:
  336.   strwhere:#num#:TO:$line$
  337.   if:144:#num#==1
  338.   fclose:#refnum#
  339.   set:$us$:_?
  340.   gosub:1700
  341.   j:131
  342. 144:
  343.   set:$title$:無題 m(_ _)m^m
  344. 145:
  345.   if:146:#mailon#==1
  346.   s:MAIL^m
  347.   set:#mailon#:1
  348.   r:^jMAIL>
  349. 146:
  350.   gosub:1000
  351.   if:131:#num#<>1
  352.   s:UPLoad TYPE:BIN PROT:BPL^m
  353.   r:^j：
  354.   s:$binary$^m
  355.   r:開始−
  356.   d:1
  357.   ulBplus:$binary$
  358.   r:^j：
  359.   s:$title$
  360.   r:^j：
  361.   s:1^m
  362.   set:#i#:1
  363. 147:
  364.   nthstr2:,:$sendid$:#i#:$mailto$
  365.   nthstr2:¥r:$sendid$:1:$sendid$
  366.   r:^j：
  367.   s:$sendid$^m
  368.   add:#i#:1
  369.   strwhere:#num#:¥¥r:$sendid$
  370.   r:^j：
  371.   s:1^m
  372.   if:147:#num#==0
  373.   r:^j：
  374.   s:^m
  375.   r:^j：
  376.   s:1^m
  377.   r:^jMAIL>
  378.   j:131
  379. ***** Read NEW *****
  380. 150:
  381.   firstfile:$filename$:POST:¥^NEW[0-9A]
  382.   if:160:$filename$==
  383.   s:GO NEW^m
  384.   strext:$line$:4:31:$filename$
  385.   gosub:1720
  386.   r:^j＞
  387.   s:$line$
  388. 151:
  389.   s:^m
  390.   r:表示終了|151:(改行で次文書　E:終了)|160:入力して下さい◆
  391. ***** Mail to Center *****
  392. 160:
  393.   firstfile:$filename$:POST:¥^CENTER-1-0
  394.   if:170:$filename$==
  395.   s:GO FEEDBACK^m
  396.   fopen:#mesref#:POST:$filename$
  397.   r:^j＞
  398. 161:
  399.   s:1^m
  400.   r:^j＞
  401.   s:1^m
  402.   r:行頭で/E）
  403.   gosub:1400
  404.   r:^j題名 (漢字で20文字まで)|162:^j＞
  405.   d:2
  406.   s:無題 m(_ _)m^m
  407.   r:^j：
  408.   s:1^m
  409.   r:^j＞
  410. 162:
  411.   firstfile:$filename$:POST:¥^CENTER-1-0
  412.   if:170:$filename$==
  413.   j:161
  414. ***** BBS *****
  415. 170:
  416.   if:900:#go#<<1
  417.   set:#num#:#go#
  418.   mod:#num#:2
  419.   if:200:#num#<<1
  420.   fopen:#refnum#:SCRIPT:BBS.aps
  421. 171:
  422.   fread:#refnum#:$line$
  423.   if:179:#err#<>0
  424.   if:179:$line$==/END^m
  425.   s:BBS^m
  426.   nthstr:$bbs$:1:$line$
  427.   strlen:#length#:$bbs$
  428.   if:172:#length#==1
  429.   strext:$tem$:1:1:$bbs$
  430.   strext:$bbs$:2:2:$bbs$
  431.   r:^j＞
  432.   s:$tem$^m
  433. 172:
  434.   r:^j＞|171:^jBBS>
  435.   s:$bbs$^m
  436.   nthstr:$bbs$:2:$line$
  437.   r:^jBBS>
  438.   if:173:$bbs$<>Y
  439.   s:SCAn DATE:$predate$^m
  440.   j:174
  441. 173:
  442.   s:SCAn DATE:$date$^m
  443. 174:
  444.   nthstr:$bbs$:3:$line$
  445. 175:
  446.   r:^j：|171:^jBBS>|176:^j＞
  447.   s:^m
  448.   j:175
  449. 176:
  450.   if:171:$bbs$<>R
  451.   s:ALL^m
  452. 177:
  453.   r:^jnext>|171:^j＞
  454.   s:^m
  455.   j:177
  456. 179:
  457.   fclose:#refnum#
  458. ***** Forum *****
  459. 200:
  460.   if:900:#go#<<2
  461.   set:#num#:#go#
  462.   mod:#num#:4
  463.   if:300:#num#<<2
  464.   fopen:#refnum#:SCRIPT:MES.aps
  465. 201:
  466.   fread:#refnum#:$line$
  467.   if:299:#err#<>0
  468.   if:299:$line$==/END^m
  469.   nthstr2:¥r:$forum$:1:$line$
  470.   s:GO $forum$^m
  471.   set:$gone$:$gone$$forum$-
  472.   set:#roomon#:0
  473.   set:#libon#:0
  474.   r:^j＞|203:^jFORUM>|201:^jMAIL>|201:^jCCS(|201:^jLIB>
  475.   nthstr:$temset$:3:$set$
  476.   if:201:$temset$==0
  477.   s:SET MENu OFF^m
  478.   r:^jmore>|202:^jFORUM>|201:^j＞|201:^jMAIL>|201:^jCCS(|201:^jLIB>
  479. 202:
  480.   gosub:1620
  481. 203:
  482.   s:SEND OFF^m
  483.   fread:#refnum#:$line$
  484.   nthstr2:¥r:$line$:1:$line$
  485.   r:^jFORUM>
  486.   gosub:1050
  487.   if:213:#roomon#==1
  488. 210:
  489.   nthstr2:/:$room$:1:$line$
  490.   if:214:$room$==
  491.   strext:$room$:1:2:$room$
  492.   strwhere:#num#:[,-]:$room$
  493.   if:211:#num#==0
  494.   strext:$room$:1:1:$room$
  495. 211:
  496.   nthstr:$temset$:6:$set$
  497.   if:212:$temset$==0
  498.   s:MES^m
  499.   r:^j＞
  500. 212:
  501.   s:MES $room$^m
  502.   r:^j＞|213:^jFORUM>|213:^jCCS(
  503.   silence:120
  504.   nthstr2:/:$room$:1:$line$
  505.   s:MREad ROOM:$room$^m
  506.   r:^j＞
  507.   silence:9
  508.   j:214
  509. 213:
  510.   nthstr2:/:$room$:1:$line$
  511.   s:MREad ROOM:$room$^m
  512.   set:#roomon#:1
  513.   r:^jCCS(N)>|214:^jCCS(P)>
  514. 214:
  515.   set:#readnum#:2
  516.   gosub:1450
  517.   set:#readnum#:3
  518.   gosub:1450
  519.   gosub:1500
  520.   exist:220:SCRIPT:SEArch.aps
  521.   j:230
  522. 220:
  523.   fopen:#searef#:SCRIPT:SEArch.aps
  524. 221:
  525.   fread:#searef#:$sealine$
  526.   if:222:#err#<>0
  527.   if:222:$sealine$==/END^m
  528.   if:221:$sealine$<>¥¥m$forum$^m
  529.   gosub:1200
  530. 222:
  531.   fclose:#searef#
  532. 230:
  533.   exist:231:SCRIPT:DownList.lib
  534.   j:240
  535. 231:
  536.   fopen:#downref#:SCRIPT:DownList.lib
  537. 232:
  538.   fread:#downref#:$downline$
  539.   if:233:#err#<>0
  540.   if:232:$downline$<>¥¥m$forum$^m
  541.   gosub:1250
  542. 233:
  543.   fclose:#downref#:
  544. 240:
  545.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  546. 241:
  547.   if:201:$filename$==
  548.   nthstr:$temforum$:1:$filename$
  549.   if:242:$temforum$==$forum$
  550.   nextfile:$filename$
  551.   j:241
  552. 242:
  553.   nthstr:$uplib$:2:$filename$
  554.   strext:$uplib$:4:5:$uplib$
  555.   gosub:1300
  556.   j:201
  557. 299:
  558.   fclose:#refnum#
  559. ***** Search *****
  560. 300:
  561.   if:900:#go#<<4
  562.   set:#num#:#go#
  563.   mod:#num#:8
  564.   if:350:#num#<<4
  565.   fopen:#searef#:SCRIPT:SEArch.aps
  566. 301:
  567.   fread:#searef#:$sealine$
  568.   if:349:#err#<>0
  569.   if:349:$sealine$==/END^m
  570.   strwhere:#num#:m:$sealine$
  571.   if:301:#num#<>2
  572.   strext:$forum$:3:99:$sealine$
  573.   nthstr2:¥r:$forum$:1:$forum$
  574.   strwhere:#num#:-$forum$-:$gone$
  575.   if:301:#num#<>0
  576.   s:GO $forum$^m
  577.   set:$gone$:$gone$$forum$-
  578.   set:#roomon#:0
  579.   set:#libon#:0
  580.   r:^j＞|304:^jFORUM>|301:^jMAIL>|301:^jCCS(|301:^jLIB>
  581.   nthstr:$temset$:3:$set$
  582.   if:301:$temset$==0
  583.   s:SET MENu OFF^m
  584.   r:^jmore>|303:^jFORUM>|301:^j＞|301:^jMAIL>|301:^jCCS(|301:^jLIB>
  585. 303:
  586.   gosub:1620
  587. 304:
  588.   s:SEND OFF^m
  589.   r:^jFORUM>
  590.   gosub:1200
  591.   exist:310:SCRIPT:DownList.lib
  592.   j:320
  593. 310:
  594.   fopen:#downref#:SCRIPT:DownList.lib
  595. 311:
  596.   fread:#downref#:$downline$
  597.   if:312:#err#<>0
  598.   if:311:$downline$<>¥¥m$forum$^m
  599.   gosub:1250
  600. 312:
  601.   fclose:#downref#:
  602. 320:
  603.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  604. 321:
  605.   if:330:$filename$==
  606.   nthstr:$temforum$:1:$filename$
  607.   if:322:$temforum$==$forum$
  608.   nextfile:$filename$
  609.   j:321
  610. 322:
  611.   nthstr:$uplib$:2:$filename$
  612.   strext:$uplib$:4:5:$uplib$
  613.   gosub:1300
  614. 330:
  615.   gosub:1050
  616.   gosub:1500
  617.   j:301
  618. 349:
  619.   fclose:#searef#
  620.   set:$filename$:SEArch.aps
  621.   gosub:1710
  622. ***** Down *****
  623. 350:
  624.   if:900:#go#<<8
  625.   set:#num#:#go#
  626.   mod:#num#:16
  627.   if:400:#num#<<8
  628.   fopen:#downref#:SCRIPT:DownList.lib
  629. 351:
  630.   fread:#downref#:$downline$
  631.   if:399:#err#<>0
  632. 352:
  633.   strwhere:#num#:m:$downline$
  634.   if:351:#num#<>2
  635.   strext:$forum$:3:99:$downline$
  636.   nthstr2:¥r:$forum$:1:$forum$
  637.   strwhere:#num#:-$forum$-:$gone$
  638.   if:351:#num#<>0
  639.   s:GO $forum$^m
  640.   set:$gone$:$gone$$forum$-
  641.   set:#roomon#:0
  642.   set:#libon#:0
  643.   r:^j＞|354:^jFORUM>|351:^jMAIL>|351:^jCCS(|351:^jLIB>
  644.   nthstr:$temset$:3:$set$
  645.   if:351:$temset$==0
  646.   s:SET MENu OFF^m
  647.   r:^jmore>|353:^jFORUM>|351:^j＞|351:^jMAIL>|351:^jCCS(|351:^jLIB>
  648. 353:
  649.   gosub:1620
  650. 354:
  651.   s:SEND OFF^m
  652.   r:^jFORUM>
  653.   gosub:1250
  654.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  655. 360:
  656.   if:370:$filename$==
  657.   nthstr:$temforum$:1:$filename$
  658.   if:361:$temforum$==$forum$
  659.   nextfile:$filename$
  660.   j:360
  661. 361:
  662.   nthstr:$uplib$:2:$filename$
  663.   strext:$uplib$:4:5:$uplib$
  664.   gosub:1300
  665. 370:
  666.   gosub:1050
  667.   gosub:1500
  668.   j:352
  669. 399:
  670.   fclose:#downref#
  671.   set:$filename$:DownList.lib
  672.   gosub:1710
  673. ***** Send Massage & Upload *****
  674. 400:
  675.   if:900:#go#<<16
  676.   set:#num#:#go#
  677.   mod:#num#:32
  678.   if:500:#num#<<16
  679. 401:
  680.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  681.   if:500:$filename$==
  682.   nthstr:$temforum$:1:$filename$
  683.   nthstr:$room$:2:$filename$
  684.   strwhere:#num#:LIB:$room$
  685.   if:420:#num#==1
  686.   set:$forum$:$temforum$
  687.   s:GO $forum$^m
  688.   set:$gone$:$gone$$forum$-
  689.   set:#roomon#:0
  690.   set:#libon#:0
  691.   r:^j＞|403:^jFORUM>|430:^jMAIL>|430:^jCCS(|430:^jLIB>
  692.   nthstr:$temset$:3:$set$
  693.   if:430:$temset$==0
  694.   s:SET MENu OFF^m
  695.   r:^jmore>|402:^jFORUM>|430:^j＞|430:^jMAIL>|430:^jCCS(|430:^jLIB>
  696. 402:
  697.   gosub:1620
  698. 403:
  699.   s:SEND OFF^m
  700.   r:^jFORUM>
  701.   set:#num#:$room$
  702.   if:410:#num#<=20
  703.   gosub:1500
  704.   j:401
  705. 410:
  706.   if:401:$filename$==
  707.   nthstr:$temforum$:1:$filename$
  708.   if:411:$temforum$==$forum$
  709.   nextfile:$filename$
  710.   j:410
  711. 411:
  712.   gosub:1100
  713.   j:401
  714. 420:
  715.   strext:$uplib$:4:5:$room$
  716.   gosub:1300
  717.   j:401
  718. 430:
  719.   set:$us$:_?
  720.   gosub:1700
  721.   j:401
  722. ***** Patio *****
  723. 500:
  724.   if:900:#go#<<32
  725.   set:#num#:#go#
  726.   mod:#num#:64
  727.   if:570:#num#<<32
  728.   fopen:#patioref#:SCRIPT:PATIO.aps
  729. 501:
  730.   fread:#patioref#:$line$
  731.   if:560:#err#<>0
  732.   if:560:$line$==/END^m
  733.   if:521:$line$==/RMN^m
  734.   if:521:$line$==/RTN^m
  735.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  736.   if:501:#num#<>1
  737.   s:GO PATIO^m
  738.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  739.   nthstr2: :$patioi$:1:$line$
  740.   nthstr2: :$patiop$:2:$line$
  741.   r:^j＞
  742.   s:2^m
  743.   r:^j：
  744.   s:$patioi$^m
  745.   r:^j：|502:^j＞
  746.   s:$patiop$^m
  747.   r:^j：|503:^j＞
  748. 502:
  749.   if:503:$patiop$==MYPATIO
  750.   s:2^m
  751.   r:^j：|501:^j＞
  752.   s:^m
  753.   r:^j＞
  754.   j:501
  755. 503:
  756.   line:#num#
  757.   sub:#num#:1
  758.   getline:$line$:#num#
  759.   strwhere:#num#: 1 +[0-9]+ (   0)   [0-1][0-9]/[0-3][0-9]   :$line$
  760.   if:506:#num#==0
  761. 504:
  762.   if:511:$filename$==
  763.   nthstr:$patio$:1:$filename$
  764.   if:505:$patioi$==$patio$
  765.   nextfile:$filename$
  766.   j:504
  767. 505:
  768.   s:1^m
  769.   r:^jPATIO(
  770.   nthstr:$temset$:2:$set$
  771.   if:508:$temset$==0
  772.   s:SET PAUSE OFF^m
  773.   r:^jPATIO(
  774.   j:508
  775. 506:
  776.   s:1^m
  777.   r:^jPATIO(|501:^j＞
  778.   nthstr:$temset$:2:$set$
  779.   if:507:$temset$==0
  780.   s:SET PAUSE OFF^m
  781.   r:^jPATIO(
  782. 507:
  783.   if:510:$filename$==
  784.   nthstr:$patio$:1:$filename$
  785.   if:508:$patioi$==$patio$
  786.   nextfile:$filename$
  787.   j:507
  788. 508:
  789.   gosub:1150
  790. 510:
  791.   s:MREad^m
  792.   r:^jPATIO(N)>|511:^jPATIO(P)>
  793. 511:
  794.   fread:#patioref#:$line$
  795.   if:560:#err#<>0
  796.   if:560:$line$==/END^m
  797.   if:520:$line$==/RMN^m
  798.   if:520:$line$==/RTN^m
  799.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  800.   if:511:#num#<>1
  801.   s:MOVe^m
  802.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  803.   nthstr2: :$patioi$:1:$line$
  804.   nthstr2: :$patiop$:2:$line$
  805.   r:^j：
  806.   s:$patioi$^m
  807.   r:^j：|512:^j＞
  808.   s:$patiop$^m
  809.   r:^j：|503:^j＞
  810. 512:
  811.   if:503:$patiop$==MYPATIO
  812.   s:2^m
  813.   r:^j：|511:^j＞
  814.   s:^m
  815.   r:^j＞
  816.   j:511
  817. 520:
  818.   strext:$tem$:2:4:$line$
  819.   j:551
  820. 521:
  821.   strext:$tem$:2:4:$line$
  822.   fread:#patioref#:$line$
  823.   if:560:#err#<>0
  824.   if:560:$line$==/END^m
  825.   if:520:$line$==/RTN^m
  826.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  827.   if:521:#num#<>1
  828.   s:GO PATIO^m
  829.   firstfile:$readfile$:POST:¥^PT_[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]-99-
  830.   nthstr2: :$patioi$:1:$line$
  831.   nthstr2: :$patiop$:2:$line$
  832.   r:^j＞
  833.   s:2^m
  834.   r:^j：
  835.   s:$patioi$^m
  836.   r:^j：|522:^j＞
  837.   s:$patiop$^m
  838.   r:^j：|523:^j＞
  839. 522:
  840.   s:2^m
  841.   r:^j：|521:^j＞
  842.   s:^m
  843.   r:^j＞
  844.   j:521
  845. 523:
  846.   set:#roomon#:0
  847.   line:#num#
  848.   sub:#num#:1
  849.   getline:$line$:#num#
  850.   strwhere:#num#: 1 +[0-9]+ (   0)   [0-1][0-9]/[0-3][0-9]   :$line$
  851.   if:540:#num#==0
  852. 530:
  853.   if:533:$readfile$==
  854.   nthstr:$patio$:1:$readfile$
  855.   strext:$patio$:4:11:$patio$
  856.   if:531:$patioi$==$patio$
  857.   nextfile:$readfile$
  858.   j:530
  859. 531:
  860.   s:1^m
  861.   set:#roomon#:1
  862.   r:^jPATIO(
  863.   nthstr:$temset$:2:$set$
  864.   if:532:$temset$==0
  865.   s:SET PAUSE OFF^m
  866.   r:^jPATIO(
  867. 532:
  868.   gosub:1550
  869. 533:
  870.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  871. 534:
  872.   if:551:$filename$==
  873.   nthstr:$patio$:1:$filename$
  874.   if:535:$patioi$==$patio$
  875.   nextfile:$filename$
  876.   j:534
  877. 535:
  878.   if:545:#roomon#==1
  879.   s:1^m
  880.   r:^jPATIO(
  881.   nthstr:$temset$:2:$set$
  882.   if:545:$temset$==0
  883.   s:SET PAUSE OFF^m
  884.   r:^jPATIO(
  885.   j:545
  886. 540:
  887.   s:1^m
  888.   r:^jPATIO(
  889.   nthstr:$temset$:2:$set$
  890.   if:541:$temset$==0
  891.   s:SET PAUSE OFF^m
  892.   r:^jPATIO(
  893. 541:
  894.   if:543:$readfile$==
  895.   nthstr:$patio$:1:$readfile$
  896.   strext:$patio$:4:11:$patio$
  897.   if:542:$patioi$==$patio$
  898.   nextfile:$readfile$
  899.   j:541
  900. 542:
  901.   gosub:1550
  902. 543:
  903.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  904. 544:
  905.   if:550:$filename$==
  906.   nthstr:$patio$:1:$filename$
  907.   if:545:$patioi$==$patio$
  908.   nextfile:$filename$
  909.   j:544
  910. 545:
  911.   gosub:1150
  912. 550:
  913.   s:$tem$^m
  914.   r:^j＞
  915.   s:RC ALL^m
  916.   r:^jPATIO(N)>|551:^jPATIO(P)>
  917. 551:
  918.   fread:#patioref#:$line$
  919.   if:560:#err#<>0
  920.   if:560:$line$==/END^m
  921.   if:520:$line$==/RTN^m
  922.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  923.   if:551:#num#<>1
  924.   s:MOVe^m
  925.   firstfile:$readfile$:POST:¥^PT_[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]-99-
  926.   nthstr2: :$patioi$:1:$line$
  927.   nthstr2: :$patiop$:2:$line$
  928.   r:^j：
  929.   s:$patioi$^m
  930.   r:^j：|552:^j＞
  931.   s:$patiop$^m
  932.   r:^j：|523:^j＞
  933. 552:
  934.   s:2^m
  935.   r:^j：|551:^j＞
  936.   s:^m
  937.   r:^j＞
  938.   j:551
  939. 560:
  940.   fclose:#patioref#
  941. ***** HP *****
  942. 570:
  943.   if:900:#go#<<64
  944.   set:#num#:#go#
  945.   mod:#num#:128
  946.   if:600:#num#<<64
  947.   fopen:#hpref#:SCRIPT:HP.aps
  948. 571:
  949.   fread:#hpref#:$line$
  950.   if:599:#err#<>0
  951.   if:599:$line$==/END^m
  952.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  953.   if:571:#num#<>1
  954.   s:GO HP^m
  955.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
  956.   nthstr2: :$hpi$:1:$line$
  957.   nthstr2: :$hpp$:2:$line$
  958.   r:^j＞
  959.   s:1^m
  960.   r:^j：
  961.   s:$hpi$^m
  962.   r:^j：|572:^j＞
  963.   s:$hpp$^m
  964.   r:^j：|580:^jHP>
  965. 572:
  966.   s:2^m
  967.   r:^j：|571:^jHP>
  968.   s:^m
  969.   r:^j＞
  970.   j:571
  971. 580:
  972.   if:590:$filename$==
  973.   nthstr:$hp$:1:$filename$
  974.   if:581:$hpi$==$hp$
  975.   nextfile:$filename$
  976.   j:580
  977. 581:
  978.   s:COMpose^m
  979.   fopen:#mesref#:POST:$filename$
  980.   fread:#mesref#:$mesline$
  981.   r:^j：
  982.   s:$mesline$
  983.   r:^j：
  984.   s:1^m
  985.   r:行頭で/E)
  986.   gosub:1400
  987.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
  988.   r:^jHP>
  989.   j:580
  990. 590:
  991.   s:REAd NEW^m
  992.   r:^jHP>
  993. 591:
  994.   fread:#hpref#:$line$
  995.   if:599:#err#<>0
  996.   if:599:$line$==/END^m
  997.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  998.   if:591:#num#<>1
  999.   s:MOVe^m
  1000.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
  1001.   nthstr2: :$hpi$:1:$line$
  1002.   nthstr2: :$hpp$:2:$line$
  1003.   r:^j：
  1004.   s:$hpi$^m
  1005.   r:^j：|592:^jHP>
  1006.   s:$hpp$^m
  1007.   r:^j：|580:^jHP>
  1008. 592:
  1009.   s:2^m
  1010.   r:^j：|591:^jHP>
  1011.   s:^m
  1012.   r:^jHP>
  1013.   j:591
  1014. 599:
  1015.   fclose:#hpref#
  1016. ***** Anonymous FTP *****
  1017. 600:
  1018.   if:900:#go#<<128
  1019.   fopen:#aftpref#:SCRIPT:AFTP.aps
  1020. 601:
  1021.   fread:#aftpref#:$line$
  1022.   if:605:#err#<>0
  1023.   strwhere:#num#:ftp:$line$
  1024.   if:601:#num#<>1
  1025.   s:GO AFTP^m
  1026.   set:$pathname$:$line$
  1027.   r:^j＞
  1028.   s:1^m
  1029.   r:^j：
  1030. 602:
  1031.   strwhere:#num#:/:$pathname$
  1032.   if:603:#num#==0
  1033.   add:#num#:1
  1034.   strlen:#length#:$pathname$
  1035.   strext:$pathname$:#num#:#length#:$pathname$
  1036.   j:602
  1037. 603:
  1038.   s:$line$
  1039.   r:^j：
  1040.   s:1^m
  1041.   r:^j：|604:^j＞
  1042.   s:1^m
  1043.   r:^j＞
  1044.   s:1^m
  1045.   r:^j：
  1046.   s:2^m
  1047.   r:^j：
  1048.   s:$pathname$
  1049.   r:開始−
  1050.   d:1
  1051.   dlBplus:
  1052.   r:^j＞
  1053. 604:
  1054.   fread:#aftpref#:$line$
  1055.   if:605:#err#<>0
  1056.   strwhere:#num#:ftp:$line$
  1057.   if:604:#num#<>1
  1058.   set:$pathname$:$line$
  1059.   j:602
  1060. 605:
  1061.   fclose:#aftpref#
  1062.   set:$filename$:AFTP.aps
  1063.   gosub:1710
  1064. ***** Logoff *****
  1065. 900:
  1066.   date:$date$:/
  1067.   strext:$tem$:8:8:$date$
  1068.   nthstr:$temset$:10:$set$
  1069.   strwhere:#num#:$tem$:$temset$
  1070.   if:990:#num#==0
  1071.   s:GO BILL^m
  1072.   r:^j＞
  1073.   s:2^m
  1074.   r:^j＞
  1075. 990:
  1076.   line:#end#
  1077.   s:OFF^m
  1078.   clock:off
  1079.   add:#end#:6
  1080.   t:991:10:*
  1081.   s:OFF^m
  1082. 991:
  1083.   save:#start#:#end#:NIFTY APS LOG
  1084.   nthstr:$temset$:8:$set$
  1085.   if:993:$temset$==0
  1086.   exec:Ccut:LOG:NIFTY APS LOG
  1087. 992:
  1088.   d:20
  1089.   exist:993:LOG:_NIFTY APS LOG
  1090.   j:992
  1091. 993:
  1092.   firstfile:$filename$:LOG:NIFTY APS LOG
  1093.   set:#usnum#:2
  1094.   rename:LOG:$filename$:$filename$.$date$
  1095.   if:995:#err#==0
  1096. 994:
  1097.   rename:LOG:$filename$:$filename$.$date$*#usnum#
  1098.   if:995:#err#==0
  1099.   add:#usnum#:1
  1100.   j:994
  1101. 995:
  1102.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
  1103.   if:996:$filename$==
  1104.   set:$us$:_?
  1105.   gosub:1700
  1106.   j:995
  1107. 996:
  1108.   append:
  1109.   nthstr:$temset$:9:$set$
  1110.   if:999:$temset$==1
  1111.   q:
  1112. 999:
  1113.   exit:
  1114. ********************
  1115. *    Sub Routine   *
  1116. ********************
  1117. ***** Send Text Mail *****
  1118. 1000:
  1119.   strext:$mailto$:4:99:$line$
  1120.   s:COMpose^m
  1121.   r:行頭で/E）
  1122. 1001:
  1123.   s:$line$
  1124.   fread:#refnum#:$line$
  1125.   if:1002:#err#<>0
  1126.   if:1001:$line$<>/POST^m
  1127. 1002:
  1128.   s:/POST^m
  1129.   r:^j題名 (漢字で20文字まで)|1003:終了)|1009:^jMAIL>
  1130.   d:2
  1131.   s:無題 m(_ _)m^m
  1132.   r:^j：
  1133.   s:1^m
  1134.   r:^j：|1009:^jMAIL>
  1135. 1003:
  1136.   d:2
  1137.   set:$mailto$:$i$
  1138.   s:$i$^m
  1139.   r:^j：
  1140.   s:1^m
  1141.   r:^j：
  1142.   s:^m
  1143.   r:^jMAIL>
  1144. 1009:
  1145.   fclose:#refnum#
  1146.   set:$us$:_
  1147.   gosub:1700
  1148.   ret:
  1149. ***** Send Message? *****
  1150. 1050:
  1151.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1152. 1051:
  1153.   if:1059:$filename$==
  1154.   nthstr:$temforum$:1:$filename$
  1155.   if:1052:$temforum$==$forum$
  1156.   nextfile:$filename$
  1157.   j:1051
  1158. 1052:
  1159.   nthstr:$room$:2:$filename$
  1160.   set:#num#:$room$
  1161.   if:1053:#num#<=20
  1162.   nextfile:$filename$
  1163.   j:1051
  1164. 1053:
  1165.   gosub:1100
  1166. 1059:
  1167.   ret:
  1168. ***** Send Message in Forum *****
  1169. 1100:
  1170.   nthstr:$room$:2:$filename$
  1171.   if:1102:#roomon#==1
  1172.   nthstr:$temset$:6:$set$
  1173.   if:1101:$temset$==0
  1174.   s:MES^m
  1175.   r:^j＞
  1176. 1101:
  1177.   s:MES $room$^m
  1178.   r:^jCCS(|1103:^jFORUM>|1103:^j＞
  1179.   set:#roomon#:1
  1180.   j:1104
  1181. 1102:
  1182.   s:RX $room$^m
  1183.   r:せん◆|1104:^jCCS(
  1184. 1103:
  1185.   set:$us$:_?
  1186.   gosub:1700
  1187.   j:1113
  1188. 1104:
  1189.   gosub:1501
  1190. 1110:
  1191.   nthstr:$mes$:3:$filename$
  1192.   if:1111:$mes$==
  1193.   strwhere:#num#:700[0-9][0-9]:$mes$
  1194.   if:1111:#num#==1
  1195.   s:RE $mes$^m
  1196.   r:^jCCS(|1112:行頭で/E）
  1197.   set:$us$:_?
  1198.   gosub:1700
  1199.   j:1113
  1200. 1111:
  1201.   s:SAY^m
  1202.   r:^j：
  1203.   s:1^m
  1204.   r:行頭で/E）
  1205. 1112:
  1206.   fopen:#mesref#:POST:$filename$
  1207.   gosub:1400
  1208.   r:^j題名 (漢字で20文字まで)|1113:^jCCS(
  1209.   d:2
  1210.   s:無題 m(_ _)m^m
  1211.   r:^j：
  1212.   s:1^m
  1213.   r:^jCCS(
  1214. 1113:
  1215.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1216. 1114:
  1217.   if:1116:$filename$==
  1218.   nthstr:$temforum$:1:$filename$
  1219.   if:1115:$temforum$==$forum$
  1220.   nextfile:$filename$
  1221.   j:1114
  1222. 1115:
  1223.   nthstr:$temroom$:2:$filename$
  1224.   if:1110:$temroom$==$room$
  1225. 1116:
  1226.   ret:
  1227. ***** Send Message in Patio *****
  1228. 1150:
  1229.   nthstr:$mes$:3:$filename$
  1230.   strwhere:#num#:700[0-9][0-9]:$mes$
  1231.   if:1151:#num#==1
  1232.   s:RE $mes$^m
  1233.   r:^jPATIO(|1152:行頭で/E）
  1234.   set:$us$:_?
  1235.   gosub:1700
  1236.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  1237.   j:1153
  1238. 1151:
  1239.   s:SAY^m
  1240.   r:^j：
  1241.   s:1^m
  1242.   r:行頭で/E）
  1243. 1152:
  1244.   fopen:#mesref#:POST:$filename$
  1245.   gosub:1400
  1246.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  1247.   r:^j題名 (漢字で20文字まで)|1153:^jPATIO(
  1248.   d:2
  1249.   s:無題 m(_ _)m^m
  1250.   r:^j：
  1251.   s:1^m
  1252.   r:^jPATIO(
  1253. 1153:
  1254.   if:1154:$filename$==
  1255.   nthstr:$patio$:1:$filename$
  1256.   if:1150:$patioi$==$patio$
  1257.   nextfile:$filename$
  1258.   j:1153
  1259. 1154:
  1260.   ret:
  1261. ***** Search LIB *****
  1262. 1200:
  1263.   s:LIB^m
  1264.   set:#libon#:1
  1265.   fread:#searef#:$sealine$
  1266.   r:^j＞
  1267.   if:1201:$sealine$==^m
  1268.   s:SEArch $sealine$
  1269.   j:1202
  1270. 1201:
  1271.   s:SEArch^m
  1272. 1202:
  1273.   r:^j＞
  1274.   ret:
  1275. ***** Download *****
  1276. 1250:
  1277.   fread:#downref#:$downline$
  1278.   if:1299:#err#<>0
  1279.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1280.   if:1299:#num#<>1
  1281.   nthstr:$lib$:1:$downline$
  1282.   set:$temlib$:$lib$
  1283.   if:1252:#libon#==1
  1284.   nthstr:$temset$:7:$set$
  1285.   if:1252:$temset$==0
  1286.   s:LIB^m
  1287.   r:^j＞
  1288. 1252:
  1289.   s:LIB $lib$^m
  1290.   r:せん◆|1254:^jLIB>
  1291. 1253:
  1292.   fread:#downref#:$downline$
  1293.   if:1299:#err#<>0
  1294.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1295.   if:1299:#num#<>1
  1296.   nthstr:$temlib$:1:$downline$
  1297.   if:1253:$temlib$==$lib$
  1298.   j:1252
  1299. 1254:
  1300.   nthstr:$file$:2:$downline$
  1301.   nthstr2:¥r:$file$:1:$file$
  1302.   nthstr2: :$file$:1:$file$
  1303.   s:DOWn PROT:BPL $file$^m
  1304.   r:^j：|1260:^jLIB>
  1305.   s:1^m
  1306.   r:^j：
  1307.   s:$forum$_$lib$($file$)^m
  1308.   r:開始−
  1309.   d:1
  1310.   dlBplus:
  1311.   r:^jLIB>
  1312. 1260:
  1313.   fread:#downref#:$downline$
  1314.   if:1261:#err#<>0
  1315.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1316.   if:1261:#num#<>1
  1317.   nthstr:$temlib$:1:$downline$
  1318.   if:1254:$temlib$==$lib$
  1319. 1261:
  1320.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1321. 1262:
  1322.   if:1265:$filename$==
  1323.   nthstr:$uplib$:2:$filename$
  1324.   strext:$uplib$:4:5:$uplib$
  1325.   if:1263:$uplib$==$lib$
  1326.   nextfile:$filename$
  1327.   j:1262
  1328. 1263:
  1329.   fopen:#mesref#:POST:$filename$
  1330.   fread:#mesref#:$mesline$
  1331.   strwhere:#num#:#!FN:$mesline$
  1332.   if:1266:#num#<>1
  1333.   strlen:#length#:$mesline$
  1334.   sub:#length#:1
  1335.   strext:$upfname$:5:#length#:$mesline$
  1336.   exist:1264:$upfname$
  1337.   j:1266
  1338. 1264:
  1339.   fread:#mesref#:$mesline$
  1340.   strwhere:#num#:#!TT:$mesline$
  1341.   if:1266:#num#<>1
  1342.   strlen:#length#:$mesline$
  1343.   if:1266:#length#<=5
  1344.   strext:$dataname$:5:#length#:$mesline$
  1345.   fread:#mesref#:$mesline$
  1346.   strwhere:#num#:#!KY:$mesline$
  1347.   if:1266:#num#<>1
  1348.   strlen:#length#:$mesline$
  1349.   if:1266:#length#<=5
  1350.   strwhere:#num#:,:$mesline$
  1351.   if:1266:#num#==5
  1352.   strext:$mesline$:5:#length#:$mesline$
  1353.   gosub:1350
  1354. 1265:
  1355.   if:1299:$temlib$==$lib$
  1356.   set:$lib$:$temlib$
  1357.   j:1252
  1358. 1266:
  1359.   fclose:#downref#
  1360.   set:$us$:_?
  1361.   gosub:1700
  1362.   j:1261
  1363. 1299:
  1364.   ret:
  1365. ***** Prepare to Upload *****
  1366. 1300:
  1367.   fopen:#mesref#:POST:$filename$
  1368.   fread:#mesref#:$mesline$
  1369.   strwhere:#num#:#!FN:$mesline$
  1370.   if:1307:#num#<>1
  1371.   strlen:#length#:$mesline$
  1372.   sub:#length#:1
  1373.   strext:$upfname$:5:#length#:$mesline$
  1374.   exist:1301:$upfname$
  1375.   j:1307
  1376. 1301:
  1377.   fread:#mesref#:$mesline$
  1378.   strwhere:#num#:#!TT:$mesline$
  1379.   if:1307:#num#<>1
  1380.   strlen:#length#:$mesline$
  1381.   if:1307:#length#<=5
  1382.   strext:$dataname$:5:#length#:$mesline$
  1383.   fread:#mesref#:$mesline$
  1384.   strwhere:#num#:#!KY:$mesline$
  1385.   if:1307:#num#<>1
  1386.   strlen:#length#:$mesline$
  1387.   if:1307:#length#<=5
  1388.   strwhere:#num#:,:$mesline$
  1389.   if:1307:#num#==5
  1390.   if:1304:$temforum$==$forum$
  1391.   set:$forum$:$temforum$
  1392.   s:GO $forum$^m
  1393.   set:$gone$:$gone$$forum$-
  1394.   set:#roomon#:0
  1395.   set:#libon#:0
  1396.   r:^j＞|1303:^jFORUM>
  1397.   nthstr:$temset$:3:$set$
  1398.   if:1307:$temset$==0
  1399.   s:SET MENu OFF^m
  1400.   r:^jmore>|1302:^jFORUM>|1307:^j＞|1307:^jMAIL>|1307:^jCCS(|1307:^jLIB>
  1401. 1302:
  1402.   gosub:1620
  1403. 1303:
  1404.   s:SEND OFF^m
  1405.   r:^jFORUM>
  1406.   if:1304:#libon#==1
  1407.   nthstr:$temset$:7:$set$
  1408.   if:1304:$temset$==0
  1409.   s:LIB^m
  1410.   r:^j＞
  1411. 1304:
  1412.   s:LIB $uplib$^m
  1413.   set:$lib$:$uplib$
  1414.   strext:$mesline$:5:#length#:$mesline$
  1415.   r:^jLIB>
  1416.   gosub:1350
  1417.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1418. 1305:
  1419.   if:1308:$filename$==
  1420.   nthstr:$temforum$:1:$filename$
  1421.   if:1306:$temforum$==$forum$
  1422.   nextfile:$filename$
  1423.   j:1305
  1424. 1306:
  1425.   nthstr:$uplib$:2:$filename$
  1426.   strext:$uplib$:4:5:$uplib$
  1427.   j:1300
  1428. 1307:
  1429.   fclose:#mesref#
  1430.   set:$us$:_?
  1431.   gosub:1700
  1432. 1308:
  1433.   ret:
  1434. ***** Upload *****
  1435. 1350:
  1436.   s:UPLoad PROT:BPL TYPE:BIN^m
  1437.   set:#keynum#:1
  1438.   r:^j：|1364:^jLIB>
  1439.   s:$dataname$
  1440.   r:^j：
  1441.   s:1^m
  1442.   r:^j：
  1443. 1351:
  1444.   nthstr2:,:$key$:#keynum#:$mesline$
  1445.   nthstr2:¥r:$key$:1:$key$
  1446.   if:1352:$key$==
  1447.   s:$key$^m
  1448.   add:#keynum#:1
  1449.   r:^j：
  1450.   s:1^m
  1451.   r:^j：|1353:行頭で/E)
  1452.   j:1351
  1453. 1352:
  1454.   s:^m
  1455.   r:行頭で/E)
  1456. 1353:  
  1457.   gosub:1400
  1458.   r:^j：
  1459.   s:1^m
  1460.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1461.   r:^j：
  1462.   s:$upfname$^m
  1463.   r:開始−
  1464.   d:1
  1465.   ulbplus:$upfname$
  1466.   r:^jLIB>
  1467. 1360:
  1468.   if:1365:$filename$==
  1469.   nthstr:$temforum$:1:$filename$
  1470.   if:1361:$temforum$==$forum$
  1471.   nextfile:$filename$
  1472.   j:1360
  1473. 1361:
  1474.   nthstr:$uplib$:2:$filename$
  1475.   strext:$uplib$:4:5:$uplib$
  1476.   if:1362:$uplib$==$lib$
  1477.   nextfile:$filename$
  1478.   j:1360
  1479. 1362:
  1480.   fopen:#mesref#:POST:$filename$
  1481.   fread:#mesref#:$mesline$
  1482.   strwhere:#num#:#!FN:$mesline$
  1483.   if:1364:#num#<>1
  1484.   strlen:#length#:$mesline$
  1485.   sub:#length#:1
  1486.   strext:$upfname$:5:#length#:$mesline$
  1487.   exist:1363:$upfname$
  1488.   j:1364
  1489. 1363:
  1490.   fread:#mesref#:$mesline$
  1491.   strwhere:#num#:#!TT:$mesline$
  1492.   if:1364:#num#<>1
  1493.   strlen:#length#:$mesline$
  1494.   if:1364:#length#<=5
  1495.   strext:$dataname$:5:#length#:$mesline$
  1496.   fread:#mesref#:$mesline$
  1497.   strwhere:#num#:#!KY:$mesline$
  1498.   if:1364:#num#<>1
  1499.   strlen:#length#:$mesline$
  1500.   if:1364:#length#<=5
  1501.   strwhere:#num#:,:$mesline$
  1502.   if:1364:#num#==5
  1503.   strext:$mesline$:5:#length#:$mesline$
  1504.   j:1350
  1505. 1364:
  1506.   fclose:#mesref#
  1507.   set:$us$:_?
  1508.   gosub:1700
  1509. 1365:
  1510.   ret:
  1511. ***** Send Message *****
  1512. 1400:
  1513.   fread:#mesref#:$mesline$
  1514.   if:1401:#err#<>0
  1515.   if:1401:$mesline$==/POST^m
  1516.   s:$mesline$
  1517.   j:1400
  1518. 1401:
  1519.   s:/POST^m
  1520.   fclose:#mesref#
  1521.   set:$us$:_
  1522.   gosub:1700
  1523.   ret:
  1524. ***** Read Title *****
  1525. 1450:
  1526.   nthstr2:/:$temroom$:#readnum#:$line$
  1527.   if:1459:$temroom$==
  1528. 1451:
  1529.   nthstr2:,:$room$:1:$temroom$
  1530.   if:1452:#roomon#==0
  1531.   s:RX $room$^m
  1532.   r:未読 :0−|1458:せん◆|1454:^jCCS(
  1533.   j:1457
  1534. 1452:
  1535.   nthstr:$temset$:6:$set$
  1536.   if:1453:$temset$==0
  1537.   s:MES^m
  1538.   r:^j＞
  1539. 1453:
  1540.   s:MES $room$^m
  1541.   r:未読 :0−|1458:せん◆|1454:^jCCS(
  1542.   set:#roomon#:1
  1543.   j:1457
  1544. 1454:
  1545.   set:#roomon#:1
  1546.   if:1455:#readnum#==3
  1547.   s:RMN^m
  1548.   j:1456
  1549. 1455:
  1550.   s:RTN^m
  1551. 1456:
  1552.   r:^j＞|1457:^jCCS(
  1553.   s:RC ALL^m
  1554.   j:1456
  1555. 1457:
  1556.   gosub:1501
  1557. 1458:
  1558.   strwhere:#num#:,:$temroom$
  1559.   add:#num#:1
  1560.   strlen:#length#:$temroom$
  1561.   strext:$temroom$:#num#:#length#:$temroom$
  1562.   if:1451:#num#>>1
  1563. 1459:
  1564.   ret:
  1565. ***** Read Message in Forum *****
  1566. 1500:
  1567.   set:$room$:
  1568. 1501:
  1569.   firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1570. 1502:
  1571.   if:1549:$readfile$==
  1572.   nthstr:$temforum$:1:$readfile$
  1573.   if:1503:$temforum$==$forum$
  1574.   nextfile:$readfile$
  1575.   j:1502
  1576. 1503:
  1577.   nthstr:$temroom$:2:$readfile$
  1578.   strext:$tem$:1:1:$temroom$
  1579.   strext:$temroom$:2:2:$temroom$
  1580.   if:1504:$tem$==4
  1581.   set:$temroom$:1$temroom$
  1582.   if:1504:$tem$==5
  1583.   set:$temroom$:20
  1584. 1504:
  1585.   if:1520:$room$==$temroom$
  1586.   if:1510:$room$==
  1587.   nextfile:$readfile$
  1588.   j:1502
  1589. 1510:
  1590.   set:$room$:$temroom$
  1591.   if:1511:#roomon#==0
  1592.   s:RX $room$^m
  1593.   r:せん◆|1520:^jCCS(
  1594.   j:1530
  1595. 1511:
  1596.   nthstr:$temset$:6:$set$
  1597.   if:1512:$temset$==0
  1598.   s:MES^m
  1599.   r:^j＞
  1600. 1512:
  1601.   s:MES $room$^m
  1602.   r:^jCCS(|1530:^jFORUM>|1530:^j＞
  1603.   set:#roomon#:1
  1604. 1520:
  1605.   nthstr:$mes$:3:$readfile$
  1606.   strwhere:#num#:[¥^0-9]:$mes$
  1607.   if:1521:#num#<>0
  1608.   s:#!$mes$^m
  1609.   r:さい◆|1540:^jCCS(N)>|1540:^jCCS(P)>
  1610. 1521:
  1611.   set:$us$:_?
  1612.   gosub:1730
  1613.   j:1501
  1614. 1530:
  1615.   set:$us$:_?
  1616.   gosub:1730
  1617.   firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1618. 1531:
  1619.   if:1549:$readfile$==
  1620.   nthstr:$temforum$:1:$readfile$
  1621.   if:1532:$temforum$==$forum$
  1622.   nextfile:$readfile$
  1623.   j:1531
  1624. 1532:
  1625.   nthstr:$temroom$:2:$readfile$
  1626.   strext:$tem$:1:1:$temroom$
  1627.   strext:$temroom$:2:2:$temroom$
  1628.   if:1533:$tem$==4
  1629.   set:$temroom$:1$temroom$
  1630.   if:1533:$tem$==5
  1631.   set:$temroom$:20
  1632. 1533:
  1633.   if:1530:$room$==$temroom$
  1634.   nextfile:$readfile$
  1635.   j:1531
  1636. 1540:
  1637.   set:$us$:_
  1638.   gosub:1730
  1639.   j:1501
  1640. 1549:
  1641.   ret:
  1642. ***** Read Message in Patio *****
  1643. 1550:
  1644.   nthstr:$mes$:3:$readfile$
  1645.   strwhere:#num#:[¥^0-9]:$mes$
  1646.   if:1551:#num#<>0
  1647.   s:#!$mes$^m
  1648.   r:さい◆|1552:^jPATIO(N)>|1552:^jPATIO(P)>
  1649. 1551:
  1650.   set:$us$:_?
  1651.   gosub:1730
  1652.   firstfile:$readfile$:POST:¥^PT_[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]-99-
  1653.   j:1553
  1654. 1552:
  1655.   set:$us$:_
  1656.   gosub:1730
  1657.   firstfile:$readfile$:POST:¥^PT_[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]-99-
  1658. 1553:
  1659.   if:1559:$readfile$==
  1660.   nthstr:$patio$:1:$readfile$
  1661.   strext:$patio$:4:11:$patio$
  1662.   if:1550:$patioi$==$patio$
  1663.   nextfile:$readfile$
  1664.   j:1553
  1665. 1559:
  1666.   ret:
  1667. ***** Set Option *****
  1668. 1600:
  1669.   nthstr:$temset$:2:$line$
  1670.   if:1601:$temset$==ON^m
  1671.   set:$set$:$set$0-
  1672.   j:1602
  1673. 1601:
  1674.   set:$set$:$set$1-
  1675. 1602:
  1676.   fread:#refnum#:$line$
  1677.   nthstr:$temset$:1:$line$
  1678.   ret:
  1679. 1610:
  1680.   s:SET MENu OFF^m
  1681.   r:^j＞
  1682.   s:SET PAGe OFF^m
  1683.   r:^j＞
  1684.   ret:
  1685. 1620:
  1686.   s:SET PAGe OFF^m
  1687.   r:^jmore>|1621:^jFORUM>
  1688. 1621:
  1689.   s:SET PAUSE OFF^m
  1690.   r:^jmore>|1629:^jFORUM>
  1691.   s:^m
  1692.   r:^jFORUM>
  1693. 1629:
  1694.   ret:
  1695. ***** Rename File *****
  1696. 1700:
  1697.   set:#usnum#:0
  1698. 1701:
  1699.   rename:POST:$filename$:$us$$filename$
  1700.   if:1709:#err#==0
  1701.   if:1702:#err#==-37
  1702.   set:$us$:$us$_
  1703.   j:1701
  1704. 1702:
  1705.   rename:POST:$filename$:_#usnum#$filename$
  1706.   if:1709:#err#==0
  1707.   add:#usnum#:1
  1708.   j:1702
  1709. 1709:
  1710.   ret:
  1711. 1710:
  1712.   set:$us$:_
  1713.   set:#usnum#:0
  1714. 1711:
  1715.   rename:SCRIPT:$filename$:$us$$filename$
  1716.   if:1719:#err#==0
  1717.   if:1712:#err#==-37
  1718.   set:$us$:$us$_
  1719.   j:1711
  1720. 1712:
  1721.   rename:SCRIPT:$filename$:_#usnum#$filename$
  1722.   if:1719:#err#==0
  1723.   add:#usnum#:1
  1724.   j:1712
  1725. 1719:
  1726.   ret:
  1727. 1720:
  1728.   set:$us$:_
  1729.   set:#usnum#:0
  1730. 1721:
  1731.   rename:POST:$filename$:$us$$line$
  1732.   if:1729:#err#==0
  1733.   if:1722:#err#==-37
  1734.   set:$us$:$us$_
  1735.   j:1721
  1736. 1722:
  1737.   rename:POST:$filename$:$us$#usnum#
  1738.   if:1729:#err#==0
  1739.   add:#usnum#:1
  1740.   j:1722
  1741. 1729:
  1742.   ret:
  1743. 1730:
  1744.   set:#usnum#:0
  1745. 1731:
  1746.   rename:POST:$readfile$:$us$$readfile$
  1747.   if:1739:#err#==0
  1748.   if:1732:#err#==-37
  1749.   set:$us$:$us$_
  1750.   j:1731
  1751. 1732:
  1752.   rename:POST:$readfile$:_#usnum#$readfile$
  1753.   if:1739:#err#==0
  1754.   add:#usnum#:1
  1755.   j:1732
  1756. 1739:
  1757.   ret:
  1758.